home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Not Passing History.cpt / Not Passing History / card_9427.txt < prev    next >
Text File  |  1992-02-09  |  7KB  |  335 lines
  1. -- card: 9427 from stack: in
  2. -- bmap block id: 12645
  3. -- flags: 0000
  4. -- background id: 2688
  5. -- name: MonkMac
  6. ----- HyperTalk script -----
  7. on arrowKey direction
  8.   if direction is "Right" then
  9.     send mouseUp to cd button "Hider2"
  10.   else
  11.     if direction is "Left" then
  12.       visual wipe right
  13.       pass arrowKey
  14.     end if
  15.   end if
  16. end arrowKey
  17.  
  18. on popup thisField
  19.   cleanScreen
  20.   lock screen
  21.   get visible of cd fld thisField
  22.   repeat with i = 6 down to 5
  23.     if visible of cd fld i is true then
  24.       hide cd fld i
  25.     end if
  26.   end repeat
  27.   set visible of cd fld thisField to not it
  28.   unlock screen with dissolve very fast
  29. end popUp
  30.  
  31. on closeCard
  32.   lock screen
  33.   repeat with i = 7 down to 5
  34.     if visible of cd fld i is true then
  35.       hide cd fld i
  36.     end if
  37.   end repeat
  38.   unlock screen with dissolve very fast
  39. end closeCard
  40.  
  41.  
  42. -- part 2 (field)
  43. -- low flags: 01
  44. -- high flags: 0000
  45. -- rect: left=335 top=31 right=316 bottom=478
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 0
  49. -- font id: 216
  50. -- text size: 9
  51. -- style flags: 0
  52. -- line height: 11
  53. -- part name: 
  54.  
  55.  
  56. -- part 3 (button)
  57. -- low flags: 00
  58. -- high flags: 2000
  59. -- rect: left=40 top=29 right=64 bottom=75
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 28956 / 28956
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Hider2
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   cleanScreen
  71.   closeCard
  72.   set lockmessages to true
  73.   visual wipe left
  74.   go cd id 8651
  75.   visual dissolve
  76.   go cd id 10194
  77.   visual zoom in slow
  78.   go cd id 6804
  79.   visual wipe left
  80.   go cd id 2191
  81. end mouseUp
  82.  
  83.  
  84. -- part 5 (field)
  85. -- low flags: 01
  86. -- high flags: 0000
  87. -- rect: left=163 top=36 right=54 bottom=353
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 216
  92. -- text size: 14
  93. -- style flags: 0
  94. -- line height: 18
  95. -- part name: 
  96.  
  97.  
  98. -- part 6 (field)
  99. -- low flags: 01
  100. -- high flags: 0001
  101. -- rect: left=348 top=79 right=151 bottom=478
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 216
  106. -- text size: 9
  107. -- style flags: 0
  108. -- line height: 11
  109. -- part name: 
  110.  
  111.  
  112. -- part 4 (field)
  113. -- low flags: 01
  114. -- high flags: 0000
  115. -- rect: left=324 top=40 right=55 bottom=469
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 216
  120. -- text size: 9
  121. -- style flags: 0
  122. -- line height: 12
  123. -- part name: 
  124.  
  125.  
  126. -- part 7 (button)
  127. -- low flags: 00
  128. -- high flags: A004
  129. -- rect: left=387 top=301 right=318 bottom=472
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 216
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: More Credits
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   set cursor to 3
  141.   lock screen
  142.   show cd fld "XCMD Credits"
  143.   unlock screen with dissolve
  144.   set cursor to 5
  145.   wait until mouse() is down
  146.   set cursor to 3
  147.   lock screen
  148.   show cd fld "Art Credits"
  149.   unlock screen with dissolve
  150.   set cursor to 5
  151.   wait until mouse() is down
  152.   set cursor to 3
  153.   lock screen
  154.   hide cd fld "XCMD Credits"
  155.   hide cd fld "Art Credits"
  156.   unlock screen with dissolve
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 8 (button)
  162. -- low flags: 00
  163. -- high flags: A004
  164. -- rect: left=329 top=301 right=318 bottom=380
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 216
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: Credits
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   popup "General Credits"
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 9 (field)
  181. -- low flags: 81
  182. -- high flags: 2004
  183. -- rect: left=326 top=42 right=315 bottom=487
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 216
  188. -- text size: 9
  189. -- style flags: 0
  190. -- line height: 12
  191. -- part name: General Credits
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   popup "General Credits"
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 10 (field)
  200. -- low flags: 81
  201. -- high flags: 2004
  202. -- rect: left=326 top=42 right=315 bottom=487
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 0
  206. -- font id: 216
  207. -- text size: 9
  208. -- style flags: 0
  209. -- line height: 10
  210. -- part name: XCMD Credits
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   popUp "XCMD Credits"
  214. end mouseUp
  215.  
  216.  
  217. -- part 11 (field)
  218. -- low flags: 81
  219. -- high flags: 2004
  220. -- rect: left=326 top=42 right=315 bottom=487
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 0
  224. -- font id: 216
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 14
  228. -- part name: Art Credits
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   popUp "Art Credits"
  232. end mouseUp
  233.  
  234.  
  235. -- part contents for card part 2
  236. ----- text -----
  237.  
  238.  
  239. The Monastery Library and its contents:
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247. the sequel to If Monks... is HyperCard & History I & II which consists of:
  248.  
  249. the White Rose
  250. 11/22/63 EXTRA!
  251.  
  252. is now EveryWare!
  253.  
  254. Written and Designed by
  255.        Brian Thomas
  256. Scripted and Enhanced by 
  257.     Philip A. Mohr, Jr.
  258.  
  259.  
  260.  
  261. -- part contents for card part 4
  262. ----- text -----
  263.  includes:
  264.  
  265.  
  266. -- part contents for card part 5
  267. ----- text -----
  268. "If Monks Had Macs..."
  269.  
  270. -- part contents for card part 6
  271. ----- text -----
  272. Imitatio Christi
  273. Journal
  274. Meat & Conversation
  275. Passing Notes
  276. Not Passing History
  277. Haiku Master
  278.  
  279.  
  280.  
  281. -- part contents for card part 9
  282. ----- text -----
  283. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
  284.  
  285. In addition to everyone in the HyperCard community upon whose work we built,
  286. we would like to specifically thank the following, our beta testers, kibitzers, and communicators, for their help and suggestions:
  287.  
  288. John Altman, Dennis Cosio, Stan Coutant, Richard Gaskin, Amanda Goodenough, Steve Grass, Pam Jablonsky, Steve Jenks, Kevin Lossner, Michael Lockard, Thomas Offenbecher,Barbara Rowe, Char Rice, Dave Votaw, Tim Wallstrom, Robert Wright.
  289.  
  290. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
  291.  
  292. -- part contents for card part 10
  293. ----- text -----
  294. Thanks to: 
  295. Oscar Hills for the Find XCMD 
  296.   and the custom-Icon XCMD ¬©
  297. Guy de Piccoiotto for the 
  298.   Inkey XFCN and the Hpopup
  299.   XCMD ¬©
  300. Roger Brown, Kevin Calhoun,
  301.   and the Trustees of Dart-
  302.   mouth College for the
  303.   XCMDs PrintField and Field-
  304.   ToFile ¬©
  305. David Dunham for the dogEar
  306.   script
  307. Steve Maller of Apple Com-
  308.   puter for the FileName and
  309.   NewFileName XCMDs.
  310. Lloyd Maxfield for the Bar-
  311.   Button XCMD
  312. Richard Davis the Flasher 
  313.   XCFN.
  314. Sam Thornton for the XFCN
  315.   MaxApplZone ¬©1988
  316. James C. Hodgdon for the
  317.   XCMD About 1.1.
  318. Dennis C. DeMars for Hyper-
  319.   Macintalk
  320.  
  321.  
  322. -- part contents for card part 11
  323. ----- text -----
  324. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àûArt Credits:
  325.  
  326. Ann Arbor Softworks &F. Zinn for Alphie's Bar.
  327.  
  328. Mac the Knife Volume 5 for Martin Luther King
  329.  
  330. M.C.Escher for the efigy.
  331.  
  332. DaVinci Building Blocks which were modified to build the Cloister.
  333.  
  334. All the artists whose work we hacked away at.
  335. ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû